use XML::RPC;
use Data::Dumper;

my $xmlrpc = XML::RPC->new('http://aapugr.wordpress.com/xmlrpc.php');
my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr','??????clave?????????',5);


for my $i (@$result)
{
	print Dumper( $i->{'postid'} );
}


mirar donde alba
